function compare(s,t:string):boolean;

var 
  i,ls,lt:longint; 
  
begin
ls:=length(s);
lt:=length(t);
if ls>lt then result:=true else
if ls<lt then result:=false else begin
  result:=true;
  i:=0;
  while i<ls do begin
    inc(i);
    if t[i]>s[i] then begin
      result:=false;
      exit;
    end else
    if t[i]<s[i] then exit;
  end;
end;
end;